home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / UTILITY WRITE EMPTY DISK.bas < prev   
BASIC Source File  |  2012-02-16  |  683b  |  27 lines
  1. 900  REM  WRITE
  2. 901 R = 2000:L = 300: DIM L$(300),R$(2000)
  3. 902 Z$ = "<CTRL-D>"
  4. 905  PRINT Z$;"OPEN COMPANY"
  5. 910  PRINT Z$;"WRITE COMPANY"
  6. 915  FOR N = 1 TO L
  7. 920  PRINT L$(N)
  8. 925  NEXT N
  9. 930  PRINT Z$;"CLOSE COMPANY"
  10. 935  PRINT Z$;"OPEN REC"
  11. 940  PRINT Z$;"WRITE REC"
  12. 945  FOR N = 1 TO R
  13. 946  PRINT R$(N)
  14. 947  NEXT N
  15. 948  PRINT Z$;"CLOSE REC"
  16. 950  INPUT "INSERT BACK UP DISK - THEN HIT RETURN";X$
  17. 960  PRINT Z$;"CATALOG"
  18. 965  HOME : PRINT Z$;"OPEN COMPANY"
  19. 970  PRINT Z$;"WRITE COMPANY"
  20. 975  FOR N = 1 TO L
  21. 980  PRINT L$(N)
  22. 981  NEXT N
  23. 985  PRINT Z$;"CLOSE COMPANY"
  24. 986  PRINT Z$;"OPEN REC"
  25. 987  PRINT Z$;"WRITE REC"
  26. 988  FOR N = 1 TO R: PRINT R$(N): NEXT N
  27. 989  PRINT Z$;"CLOSE REC"